ANSi Art File | 1988-03-25 | 522 b | 640x256 | 1-bit (2 colors)
ocr: Our solution to Uutside Assignment 2: separate (TRITEST) function TRITYPECLENI, LENZ, LEN3 : in INTEGER) return TRIANGLE is ANSWER : TRIANGLE; begin if LEN1 + LEN2 <= LEN3 or LEN1 + LEN3 <= LEN2 or LENZ + LEN3 <= LEN1 then ANSWER := NOT_A_TRIANGLE: elsif LEN1 = LEN2 and LEN2 = LEN3 then ANSWER := CQUILATERAL: elsif LEN1 = LENZ or LEN2 = LEN3 or LEN1 = LEN3 then ANSWER := ISUSCELES: else ANSWER := SCALENE; end if; return ANSWER: end TRITYPE;
(.png)
